1 Y=828:N=53280:IFPEEK(49152)<>240THENLOAD"DFONT1",8,1
2 IFPEEK(51200)<>240THENLOAD"DFONT2",8,1
3 IFPEEK(Y)<>24THENSYS57812"SS 1990",8:POKE780,0:POKE781,60:POKE782,3:SYS65493
4 POKEN,.:POKEN+1,.:POKEN+2,5:POKEN+3,3:POKEN+4,7:S=56320:X=1
5 PRINTCHR$(14)"	[147][159]    [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
6 PRINT"[154]     [210]EADING [196]ISK... [208]LEASE [215]AIT... "
7 PRINT"    [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]":GOSUB407:A$=CHR$(13)
8 DIMH$(15),C$(26),I$(328),A%(4,50),C%(4,50),E%(4,50),S%(4,328),L%(4),T%(27)
9 DIMP%(328),W$(12),A$(8),B$(8),P$(65),D$(5),E$(5),F$(4),G$(4),J$(6),K$(1)
10 OPEN2,8,2,"0:DFILES":FORY=1TO15:INPUT#2,H$(Y):NEXT:FORY=.TO25
11 INPUT#2,C$(Y):NEXT:FORY=.TO328:INPUT#2,I$(Y),P%(Y):NEXT
12 FORY=.TO8:INPUT#2,A$(Y),B$(Y):NEXT:FORY=.TO12:INPUT#2,W$(Y):NEXT
13 FORY=1TO65:INPUT#2,P$(Y):NEXT:CLOSE2:FORY=.TO5:READD$(Y),E$(Y):NEXT
14 FORY=.TO4:READF$(Y),G$(Y):NEXT:FORY=.TO27:READT%(Y):NEXT
15 FORY=54272TO54296:POKEY,.:NEXT
16 FORY=.TO6:READJ$(Y):NEXT:FORY=.TO1:READK$(Y):NEXT
17 FORY=54272TO54278:READV:POKEY,V:NEXT:V=54296
18 I$(.)="                                       ":P$(.)="                    "
19 PRINT"[147]"CHR$(142):POKE56576,PEEK(56576)AND252:POKEN-8,18
20 POKEN-15,PEEK(N-15)OR64:POKE648,196:PRINT"[147]":IFPEEK(827)<>13THENGOSUB400
21 GOSUB464:GOSUB539
22 R=4:P=5:GOSUB271:PRINT"[144][255][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][223]"
23 FORY=.TO17:PRINTTAB(5)"[188][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][190]":NEXT
24 GOSUB271:FORY=.TO8:PRINTTAB(21-(LEN(A$(Y)))/2)""B$(Y):NEXT
25 R=22:P=4:GOSUB271:PRINT"[144]^CURSOR / JOYSTICK TO HIGHLIGHT_"
26 PRINTTAB(4)"[144](   RETURN OR FIRE TO ENGAGE   )"
27 TE=.:R=5:GOSUB546:PRINT""A$(TE)
28 GOSUB272:IFTE=5THENGOSUB296:GOTO28
29 IFTE=6THENSYS828,1:GOSUB268:SYS831,1:GOTO28
30 IFTE=8THENSYS828,1:SP=P:GOSUB197:P=SP:SYS831,1:GOTO28
31 IFTE=7THENSYS828,1:GOSUB406:SYS831,1:GOTO28
32 A=TE:Y=L%(A):SYS828,1:I=1:X=1:MR=R:MP=P:GOSUB33:GOTO28
33 PRINT"[147]":R=15:P=0:GOSUB271:FORM=.TO4:PRINT""SPC(M)W$(M):NEXT
34 R=7:P=1:FORM=5TO11:GOSUB271:R=R+1:IFM=8THENR=R+1
35 PRINTW$(M):NEXT:GOSUB67
36 GOSUB457:GETX$:IFX$=A$THENGOSUB454:GOSUB45:GOTO39
37 IFX$="[145]"THENGOSUB63:GOTO36
38 IFX$=""THENGOSUB65:GOTO36
39 IFX$="R"THENL%(A)=Y:GOSUB454:SYS831,1:R=MR:P=MP:RETURN
40 IFX$="+"ORX$="-"THENGOSUB153:IFY=50THENL%(A)=Y:SYS831,1:R=MR:P=MP:RETURN
41 IFX$="C"ANDQTHENGOSUB454:GOSUB152:GOTO36
42 IFX$="C"ANDQ=.THENGOSUB454:GOSUB150
43 IFX$="T"THENGOSUB454:GOSUB268
44 GOTO36
45 ONXGOTO47,48,49,50,51,52,53,54,55,56,57,58,59,60
46 X$="R":RETURN
47 I=48:GOTO62
48 I=72:GOTO62
49 I=94:GOTO62
50 I=106:GOTO62
51 I=134:GOTO62
52 I=184:GOTO62
53 I=191:GOTO62
54 I=193:GOTO62
55 I=196:GOTO62
56 I=226:GOTO62
57 I=247:GOTO62
58 I=265:GOTO62
59 I=289:GOTO62
60 I=301:GOTO62
61 X$="R":RETURN
62 X=X+1:GOSUB69:RETURN
63 IFI=1THENGOSUB453:RETURN
64 I=I-1:GOSUB78:GOSUB70:RETURN
65 IFI=328THENGOSUB453:RETURN
66 I=I+1:GOSUB95:GOSUB70:RETURN
67 Z$=MID$(A$(A),4,LEN(A$(A))-4):Z$="[144]@"+Z$+"[144]\"
68 R=0:P=0:GOSUB271:PRINTI$(.):P=(21-(LEN(A$(A)))/2):GOSUB271:PRINT""Z$
69 R=1:P=12:GOSUB271:PRINT"[154]"H$(X)
70 R=2:P=0:GOSUB271:PRINTI$(.)"":P=(20-(LEN(I$(I)))/2):GOSUB271:PRINTI$(I)
71 C=X:IFX=12ORX=13ORX=14THENGOSUB126
72 R=3:P=8:GOSUB271:PRINT"[155]    CALORIES PER SERVING":GOSUB271:PRINTC$(C)
73 R=4:P=0:GOSUB271:PRINT"[155]"I$(.)
74 P=(40-(14+LEN(P$(P%(I)))))/2:GOSUB271:PRINT"SERVING SIZE: "P$(P%(I))
75 R=5:P=9:GOSUB271:PRINT"[159]NUMBER OF SERVINGS: "S%(A,I)
76 IFQTHENGOSUB150
77 RETURN
78 ONXGOTO79,80,81,82,83,84,85,86,87,88,89,90,91,92,93
79 IFI<47THENRETURN
80 IFI>47THENRETURN
81 IFI>71THENRETURN
82 IFI>93THENRETURN
83 IFI>105THENRETURN
84 IFI>133THENRETURN
85 IFI>183THENRETURN
86 IFI>190THENRETURN
87 IFI>192THENRETURN
88 IFI>195THENRETURN
89 IFI>225THENRETURN
90 IFI>246THENRETURN
91 IFI>264THENRETURN
92 IFI>288THENRETURN
93 IFI>300THENRETURN
94 I=I+1:GOSUB453:RETURN
95 ONXGOTO96,98,100,102,104,106,108,110,112,114,116,118,120,122,124
96 IFI<48THENRETURN
97 GOTO125
98 IFI<72THENRETURN
99 GOTO125
100 IFI<94THENRETURN
101 GOTO125
102 IFI<106THENRETURN
103 GOTO125
104 IFI<134THENRETURN
105 GOTO125
106 IFI<184THENRETURN
107 GOTO125
108 IFI<191THENRETURN
109 GOTO125
110 IFI<193THENRETURN
111 GOTO125
112 IFI<196THENRETURN
113 GOTO125
114 IFI<226THENRETURN
115 GOTO125
116 IFI<247THENRETURN
117 GOTO125
118 IFI<265THENRETURN
119 GOTO125
120 IFI<289THENRETURN
121 GOTO125
122 IFI<301THENRETURN
123 GOTO125
124 IFI<329THENRETURN
125 I=I-1:GOSUB453:RETURN
126 IFX=12THENC=11:RETURN
127 IFX=14THEN143
128 IFI>265ANDI<276THENC=16:RETURN
129 IFI<276THENRETURN
130 ONI-275GOTO131,132,133,134,135,136,137,139,132,139,140,141:RETURN
131 C=17:RETURN
132 C=18:RETURN
133 C=19:RETURN
134 C=20:RETURN
135 C=21:RETURN
136 C=22:RETURN
137 C=23:RETURN
138 C=24:RETURN
139 C=1:RETURN
140 C=14:RETURN
141 C=25:RETURN
142 RETURN
143 IFI<289THENRETURN
144 ONI-288GOTO145,146,147,148,148,147,147,149,147,148,149,147:RETURN
145 C=22:RETURN
146 C=.:RETURN
147 C=16:RETURN
148 C=1:RETURN
149 C=13:RETURN
150 R=16:P=27:GOSUB271:PRINT"[144]@CALORIES[144]\"
151 PRINTSPC(29)"      [157][157][157][157][157][157]"B:Q=1:RETURN
152 R=16:P=27:GOSUB271:PRINT"          ":PRINTSPC(29)"      ":Q=.:RETURN
153 T=S%(A,I):IFX$="+"THENT=T+1:IFT=10THENT=0
154 IFX$="-"THENT=T-1:IFT=-1THENT=9
155 GOSUB454:IFT=S%(A,I)THENRETURN
156 IFS%(A,I)=.THEN158
157 GOTO161
158 IFX=12THEND=D+T
159 A%(A,Y)=I:E%(A,Y)=T:C%(A,Y)=VAL(C$(C)):B=B+(T*C%(A,Y)):GOSUB438:S%(A,I)=T
160 GOSUB75:Y=Y+1:RETURN
161 FORW=.TO24:IFA%(A,W)=ITHENG=W
162 NEXT
163 IFT=.THEN167
164 IFT<S%(A,I)THEN170
165 H=T-S%(A,I):S%(A,I)=T:E%(A,G)=T:B=B+(H*C%(A,G)):GOSUB438:IFX=12THEND=D+H
166 GOSUB75:RETURN
167 B=B-(S%(A,I)*C%(A,G)):S%(A,I)=.:GOSUB75:IFX=12THEND=D-E%(A,G)
168 FORH=GTO24:C%(A,H)=C%(A,H+1):E%(A,H)=E%(A,H+1):A%(A,H)=A%(A,H+1):NEXT
169 Y=Y-1:RETURN
170 H=S%(A,I)-T:S%(A,I)=T:E%(A,G)=T:B=B-(H*C%(A,G)):IFX=12THEND=D-H
171 GOSUB75:RETURN
172 GOSUB395:IFX$="N"THENRETURN
173 P=3:GOSUB271:PRINT"[144]@CLEARING MEMORY...PLEASE WAIT...\":B=.:D=.
174 FORE=.TO4:IFL%(E)=.THEN177
175 L%(E)=.:FORZ=.TO25:A%(E,Z)=.:C%(E,Z)=.:E%(E,Z)=.:NEXT
176 FORZ=.TO328:S%(E,Z)=.:NEXT
177 NEXT:RETURN
178 IFL%(A)=.THENP=6:GOSUB271:PRINT"[158]@[153]THAT MEAL IS NOT IN MEMORY[158]\"
179 Z=L%(A)-1:Z1=.:IFL%(A)=.THENGOSUB543:RETURN
180 Z$=MID$(A$(A),4,LEN(A$(A))-4):Z$="[144]@"+Z$+"[144]\"
181 PRINT"[147][144]"TAB(21-(LEN(Z$))/2)Z$""
182 JJ=.:FORE=Z1TOZ1+9:IFA%(A,E)=.THENE=Z1+9:JJ=1:GOTO184
183 GOSUB191
184 NEXT:IFJJORA%(A,E)=.THENGOSUB189
185 PRINTTAB(2)"[144]"W$(12)
186 GOSUB350
187 IFJJORA%(A,E)=.THENRETURN
188 Z1=E:GOTO181
189 K=.:FORE=.TOZ:K=K+(C%(A,E)*E%(A,E)):NEXT
190 PRINT"[158]      CALORIES FOR THIS MEAL:"K:RETURN
191 GOSUB440
192 PRINT"[157]"E%(A,E);:IFE%(A,E)=1THENPRINT"SERVING";:GOTO194
193 PRINT"SERVINGS";
194 IFP%(A%(A,E))=55THENPRINT:GOTO196
195 PRINT" OF "P$(P%(A%(A,E)))" EACH"
196 RETURN
197 P=6:GOSUB271:PRINT"[158]@[144]CHOOSE NEW PERSON   [Y/N]?[158]\":GOSUB556
198 IFX$="Y"THEN21
199 GOSUB271:PRINT"[158]@[144]RETURN TO LOADSTAR  [Y/N]?[158]\"
200 GETX$:IFX$<>"Y"ANDX$<>"N"THEN200
201 GOSUB454:IFX$="N"THENRETURN
202 PRINT"[147]":FORY=54272TO54296:POKEY,.:NEXT
203 POKE56576,199:POKE53280-8,21:POKE53280-15,27:POKE648,4
204 PRINTCHR$(142)"[147][159]BOOTING LOADSTAR...[144]"
205 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
206 IFER<>63THENPRINT"[159]NOT FOUND!":END
207 PRINT"LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8"
208 POKE631,131:POKE198,1:END
209 PRINT"[147]        [144]@I N F O R M A T I O N[144]\"
210 PRINT"[155]   IT'S GOOD TO EAT FOOD HIGH IN FIBER,"
211 PRINT"LOW IN SODIUM, CHOLESTEROL, SATURATED"
212 PRINT"FAT, OR ADDED SUGAR.  BAKE, ROAST, BOIL,";
213 PRINT"GRILL, OR BROIL FOOD.  USE NONSTICK"
214 PRINT"SPRAY/PANS TO BROWN OR FRY FOOD."
215 PRINT"[144]MEAT$[146][155] TRIM OFF VISIBLE FAT.  WEIGH AFTER";
216 PRINT"REMOVING BONES AND COOKING.  DO NOT ADD"
217 PRINT"FLOUR, BREAD CRUMBS, COATING MIXES OR"
218 PRINT"FAT WHEN COOKING.  HIGH-FAT MEAT SHOULD"
219 PRINT"BE LIMITED TO 3 TIMES PER WEEK.  PRIME"
220 PRINT"CUTS ARE HIGH IN FAT AND CALORIES."
221 PRINT"[144]VEGETABLES$[146][155] RINSING CANNED VEGETABLES"
222 PRINT"REDUCES THE SODIUM CONTENT."
223 PRINT"[144]FAT$[146][155] FROM BUTTER TO THE END OF THE LIST"
224 PRINT"ARE SATURATED FATS.":PRINTTAB(2)"[144]"W$(12):GOSUB350
225 PRINT"[147]        [144]@I N F O R M A T I O N[144]\"
226 PRINT"[144]FRUITS$[146][155] USE FROZEN OR CANNED WITHOUT"
227 PRINT"SUGAR.  CANNED FRUIT SHOULD BE PACKED IN";
228 PRINT"WATER.  IF IT IS PACKED IN JUICE, THE"
229 PRINT"JUICE SHOULD BE COUNTED AS A SEPARATE"
230 PRINT"ITEM.  WHOLE FRUIT IS MORE FILLING THAN"
231 PRINT"JUICE AND IS BETTER FOR SOMEONE TRYING  TO LOSE WEIGHT."
232 PRINT"[144]FREE FOODS/LMTD$[146][155] ADDS UP TO 20 CALORIES"
233 PRINT"PER SERVING.  LIMIT THESE TO 3 SERVINGS"
234 PRINT"PER DAY.  THESE CALORIES WILL BE ADDED"
235 PRINT"IN THE PRINTED DIET PLAN FOR THE DAY."
236 PRINT"[144]MICROWAVE$[146][155] USING THE MICROWAVE, YOU CAN"
237 PRINT"COOK FRESH VEGETABLES USING A VERY SMALL";
238 PRINT"AMOUNT OF WATER.  THIS METHOD KEEPS MORE";
239 PRINT"OF THE NUTRIENTS AND FLAVOR IN.  WHEN"
240 PRINT"USING THE MICROWAVE FOR ANY COOKING, DO"
241 PRINT"NOT ADD SALT BEFORE COOKING.  THIS WILL"
242 PRINT"DRY UP THE FOOD BEING COOKED.":PRINTTAB(2)"[144]"W$(12)
243 GOSUB350:RETURN
244 E=1:FORA=.TO4:IFL%(A)<>.THENE=.
245 NEXT:P=8:IFETHENGOSUB271:PRINT"[158]@[144]NO MEAL IS IN MEMORY[158]\"
246 IFETHENGOSUB543:RETURN
247 GOSUB271:PRINTK$(.)
248 GOSUB457:GETX$:XX=XX+1:GOSUB352:IFX$=""THEN248
249 GOSUB454:GOSUB356:P=7:GOSUB308
250 OPEN4,4:PRINT#4,"DIET PLAN FOR "D$", "C$:A=.
251 GOSUB257:A=A+1:IFA=5THEN253
252 GOTO251
253 IFD>2THENB=B+50:GOSUB438:D=D-3:GOTO253
254 PRINT#4:PRINT#4,"TOTAL CALORIES FOR THE DAY:"B
255 IFCLANDCL<BTHENPRINT#4,"YOU ARE"B-CL"CALORIES OVER YOUR LIMIT!"
256 PRINT#4:CLOSE4:RETURN
257 IFL%(A)=.THENRETURN
258 PRINT#4:O$=MID$(A$(A),4,LEN(A$(A))-4)
259 PRINT#4,SPC(10)O$
260 K=.:FORE=.TOL%(A)-1:GOSUB382
261 PRINT#4,"-->";
262 PRINT#4,E%(A,E);:IFE%(A,E)=1THENPRINT#4,"SERVING";:GOTO264
263 PRINT#4,"SERVINGS";
264 IFP%(A%(A,E))=55THENPRINT#4:GOTO266
265 PRINT#4," OF "P$(P%(A%(A,E)))" EACH"
266 K=K+(C%(A,E)*E%(A,E)):NEXT
267 PRINT#4,"CALORIES FOR THIS MEAL:"K:RETURN
268 IFPEEK(N-8)=17THENPOKEN-8,19:GOTO270
269 POKEN-8,17
270 RETURN
271 POKE781,R:POKE782,P:POKE783,.:SYS65520:RETURN
272 GOSUB398:IFX$=""THENGOSUB276
273 IFX$="[145]"THENGOSUB279
274 IFX$=A$THENGOSUB454:RETURN
275 GOTO272
276 GOSUB546:PRINT""B$(TE)
277 TE=TE+1:R=R+2:IFTE=9THENTE=0:R=5
278 GOSUB546:PRINT""A$(TE):RETURN
279 GOSUB546:PRINT""B$(TE)
280 TE=TE-1:R=R-2:IFTE=-1THENTE=8:R=21
281 GOSUB546:PRINT""A$(TE):RETURN
282 DATA"@[144]INFORMATION\","[192][144][201][206][198][207][210][205][193][212][201][207][206][220]","@[144]DISPLAY MEAL\"
283 DATA"[192][144][196][201][211][208][204][193][217][160][205][197][193][204][220]"
284 DATA"@[144]CLEAR MEMORY\","[192][144][195][204][197][193][210][160][205][197][205][207][210][217][220]","@[144]SET CALORIES\"
285 DATA"[192][144][211][197][212][160][195][193][204][207][210][201][197][211][220]"
286 DATA"@[144]PRINT DIET\","[192][144][208][210][201][206][212][160][196][201][197][212][220]","@[144]RETURN\","[192][144][210][197][212][213][210][206][220]"
287 DATA"[159]@[144]B R E A K F A S T[159]\","[159][192][144][194][160][210][160][197][160][193][160][203][160][198][160][193][160][211][160][212][159][220]"
288 DATA"[159]@[144]L U N C H[159]\","[159][192][144][204][160][213][160][206][160][195][160][200][159][220]","[159]@[144]D I N N E R[159]\","[159][192][144][196][160][201][160][206][160][206][160][197][160][210][159][220]"
289 DATA"[159]@[144]S N A C K   O N E[159]\","[159][192][144][211][160][206][160][193][160][195][160][203][160][160][160][207][160][206][160][197][159][220]"
290 DATA"[159]@[144]S N A C K   T W O[159]\","[159][192][144][211][160][206][160][193][160][195][160][203][160][160][160][212][160][215][160][207][159][220]"
291 DATA34,50,52,53,59,61,68,84,85,93,126,130,139,140,155,171,172
292 DATA174,175,226,245,251,257,287,288,299,324,326
293 DATASUNDAY,MONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAY,SATURDAY
294 DATA"[158]@[144] TURN ON YOUR PRINTER [158]\","[158]@[144]PRESS A KEY WHEN READY[158]\"
295 DATA255,4,,8,65,,240
296 TR=R:TP=P:SYS828,1:R=4:P=11:GOSUB271:PRINT"[158][255][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][223]"
297 FORY=.TO10:R=R+1:GOSUB271:PRINT"[188][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][190]":NEXT
298 R=R+1:GOSUB271:PRINT"[168][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][169]"
299 R=5:P=13:FORY=.TO5:GOSUB271:PRINT""E$(Y):R=R+2:NEXT
300 T1=.:R=5:P=13:GOSUB271:PRINT""D$(T1)
301 GOSUB398:IFX$=""THENGOSUB316
302 IFX$="[145]"THENGOSUB318
303 IFX$=A$THENGOSUB454:R1=R:P1=P:SYS828,2:GOTO305
304 GOTO301
305 IFT1=5THENSYS831,1:R=TR:P=TP:RETURN
306 ONT1+1GOSUB209,366,172,418,244
307 SYS831,2:R=R1:P=P1:GOTO301
308 L=1:L$=STR$(L):GOSUB320
309 GOSUB271:PRINT"[158]@MONTH:   DAY:   YEAR:   [158]\":P=P+7
310 GOSUB271:PRINT"[158]"L$:GOSUB322
311 C$=L$+"/":L=1:L$=STR$(L):GOSUB320
312 P=P+7:GOSUB271:PRINT"[158]"L$:GOSUB328
313 C$=C$+L$+"/":L=90:L$=STR$(L):GOSUB320
314 P=P+8:GOSUB271:PRINT"[158]"L$:GOSUB332
315 C$=C$+L$:P=6:GOSUB271:PRINT"[158]@[144]PRINTING DIET-PLEASE WAIT![158]\":RETURN
316 GOSUB271:PRINT""E$(T1):T1=T1+1:R=R+2:IFT1=6THENT1=0:R=5
317 GOTO327
318 GOSUB271:PRINT""E$(T1):T1=T1-1:R=R-2:IFT1=-1THENT1=5:R=15
319 GOTO327
320 IFL<10THENL$="0"+RIGHT$(L$,1):RETURN
321 L$=RIGHT$(L$,2):RETURN
322 GOSUB398:IFX$=""THENGOSUB338
323 IFX$="[145]"THENGOSUB340
324 IFX$=A$THENGOSUB454:RETURN
325 GOTO322
326 GOSUB271:PRINT""E$(T1):T1=T1-1:R=R-2:IFT1=-1THENT1=5:R=15
327 GOSUB271:PRINT""D$(T1):RETURN
328 GOSUB398:IFX$=""THENGOSUB342
329 IFX$="[145]"THENGOSUB344
330 IFX$=A$THENGOSUB454:RETURN
331 GOTO328
332 GOSUB398:IFX$=""THENGOSUB346
333 IFX$="[145]"THENGOSUB348
334 IFX$=A$THENGOSUB454:GOTO336
335 GOTO332
336 IFL<90THENL$="20"+L$:RETURN
337 L$="19"+L$:RETURN
338 L=L+1:IFL=13THENL=1
339 GOTO542
340 L=L-1:IFL=.THENL=12
341 GOTO542
342 L=L+1:IFL=32THENL=1
343 GOTO542
344 L=L-1:IFL=.THENL=31
345 GOTO542
346 L=L+1:IFL=100THENL=0
347 GOTO542
348 L=L-1:IFL=-1THENL=99
349 GOTO542
350 GOSUB457:GETX$:IFX$=""THEN350
351 GOSUB454:RETURN
352 IFXX<25THENRETURN
353 XX=.:IFX1=.THENX1=1:GOTO355
354 X1=.
355 GOSUB271:PRINTK$(X1):RETURN
356 L=.:GOSUB271:PRINT"[158]@DAY OF WEEK:          [158]\"
357 P=P+14:GOSUB271:PRINT"[158]"J$(L)
358 GOSUB398:IFX$=""THENGOSUB362
359 IFX$="[145]"THENGOSUB364
360 IFX$=A$THENGOSUB454:D$=J$(L):RETURN
361 GOTO358
362 GOSUB271:PRINT"         ":L=L+1:IFL=7THENL=.
363 GOSUB271:PRINT"[158]"J$(L):RETURN
364 GOSUB271:PRINT"         ":L=L-1:IFL=-1THENL=6
365 GOSUB271:PRINT"[158]"J$(L):RETURN
366 R=5:P=9:GOSUB271:PRINT"[158]^                    _"
367 FORY=.TO8:R=R+1:GOSUB271:PRINT"<                    >":NEXT
368 R=R+1:GOSUB271:PRINT"(                    )"
369 R=6:FORY=.TO4:P=(21-(LEN(F$(Y)))/2):GOSUB271:R=R+2:PRINT""F$(Y):NEXT
370 SD=.:R=6:P=(21-(LEN(G$(SD)))/2):GOSUB271:PRINT""G$(SD)
371 GOSUB398:IFX$=""THENGOSUB376
372 IFX$="[145]"THENGOSUB379
373 IFX$=A$THENGOSUB454:GOTO375
374 GOTO371
375 A=SD:GOSUB178:RETURN
376 P=(21-(LEN(F$(SD)))/2):GOSUB271:PRINT""F$(SD)
377 SD=SD+1:R=R+2:IFSD=5THENSD=0:R=6
378 P=(21-(LEN(G$(SD)))/2):GOSUB271:PRINT""G$(SD):RETURN
379 P=(21-(LEN(F$(SD)))/2):GOSUB271:PRINT""F$(SD)
380 SD=SD-1:R=R-2:IFSD=-1THENSD=4:R=14
381 P=(21-(LEN(G$(SD)))/2):GOSUB271:PRINT""G$(SD):RETURN
382 O=A%(A,E)
383 IFO=94ORO=105ORO=226THENPRINT#4,RIGHT$(I$(O),LEN(I$(O))-4);:RETURN
384 IFO>12ANDO<22THEN393
385 IFO<3THEN393
386 IFO>94ANDO<105THEN393
387 IFO>87ANDO<91THEN393
388 IFO>165ANDO<169THEN393
389 IFO>276ANDO<286THEN393
390 TS=1:FORTT=.TO27:IFT%(TT)=OTHENGOSUB394:TS=.:T=27
391 NEXT:IFTS=.THENRETURN
392 PRINT#4,I$(O);:RETURN
393 GOSUB394:RETURN
394 PRINT#4,RIGHT$(I$(O),LEN(I$(O))-3);:RETURN
395 P=9:GOSUB271:PRINT"[158]@[144]ARE YOU SURE  [Y/N]?[158]\"
396 GETX$:IFX$<>"Y"ANDX$<>"N"THEN396
397 GOSUB454:POKE198,.:RETURN
398 GOSUB457:GETX$:IFX$<>""ANDX$<>"[145]"ANDX$<>A$THEN398
399 RETURN
400 PRINT"[147]";:OPEN2,8,2,"0:DSCREEN1"
401 FORY=.TO24:INPUT#2,K$:PRINTK$;:NEXT:PRINT:CLOSE2
402 GOSUB455:SYS828,4:GOSUB454
403 PRINT"[147]";:OPEN2,8,2,"0:DSCREEN2"
404 FORY=.TO24:INPUT#2,K$:PRINTK$;:NEXT:PRINT:CLOSE2
405 GOSUB455:SYS828,5:GOSUB454:POKE827,13:RETURN
406 SYS831,4:GOSUB455:GOSUB454:SYS831,5:GOSUB455:GOSUB454:RETURN
407 POKE214,15:PRINT:PRINT"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][152]"
408 FORI=1TO3:PRINT"                                      ":NEXT
409 PRINT"        [208]UBLISHED ON [204][207][193][196][211][212][193][210] #82     "
410 PRINT"      [211]UBSCRIPTIONS 1-800-831-2694    "
411 PRINT"         [193] [211][207][198][212][196][201][211][203] [208]UBLICATION       "
412 PRINT"                                      "
413 PRINT"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
414 A$="[215][193][201][211][212][160][195][207][206][212][210][207][204][204][197][210]  [214]1":POKE214,17:PRINT
415 PRINTSPC(20-LEN(A$)/2)"[152]"A$
416 A$="[194]Y [203]EN [203]OWALEWSKI   ([195]) 1991":POKE214,18:PRINT
417 PRINTSPC(20-LEN(A$)/2)"[152]"A$"":RETURN
418 P=7:GOSUB271:PRINT"[158]@ SET CALORIE LIMIT:     [158]\[144]":P=27:GOSUB271
419 GOSUB427:RETURN
422 IFPL=12THENCL=VAL(B$):RETURN
423 OPEN15,8,15,"R0:DFILE=DFILE":INPUT#15,ER:CLOSE15:IFER<>63THEN425
424 IFB%(PL)<>VAL(B$)THENOPEN15,8,15,"S0:DFILE":CLOSE15
425 IFB%(PL)=VAL(B$)THENRETURN
426 B%(PL)=VAL(B$):GOSUB549:RETURN
427 B$="":POKE198,0
428 GOSUB457:GETX$:PRINT"[144]-[157]";:IFX$=""THEN428
429 IFX$=A$ANDVAL(B$)<500ANDVAL(B$)THENPRINT" ":GOSUB437:GOTO427
430 IFX$=A$THENPRINT" ":GOSUB454:GOSUB422:RETURN
431 IFX$=CHR$(20)ANDLEN(B$)THENB$=LEFT$(B$,LEN(B$)-1):X$="[157]  [157][157]":GOTO436
432 IFLEN(B$)>3THENGOSUB453:GOTO428
433 IFX$>="0"ANDX$<="9"THEN435
434 GOTO428
435 B$=B$+X$
436 GOSUB454:PRINTX$;:GOTO428
437 GOSUB271:PRINT"    ":GOSUB453:GOSUB271:RETURN
438 IFCLANDB>CLTHENGOSUB453:GOSUB453
439 RETURN
440 O=A%(A,E)
441 IFO=94ORO=105ORO=226THENPRINT""RIGHT$(I$(O),LEN(I$(O))-4):RETURN
442 IFO>12ANDO<22THEN451
443 IFO<3THEN451
444 IFO>94ANDO<105THEN451
445 IFO>87ANDO<91THEN451
446 IFO>165ANDO<169THEN451
447 IFO>276ANDO<286THEN451
448 TS=1:FORTT=.TO27:IFT%(TT)=OTHENGOSUB452:TS=.:T=27
449 NEXT:IFTS=.THENRETURN
450 PRINT""I$(O):RETURN
451 GOSUB452:RETURN
452 PRINT""RIGHT$(I$(O),LEN(I$(O))-3):RETURN
453 FORW=.TO50:POKEV,15:POKEV,.:NEXT:RETURN
454 FORW=.TO2:POKEV,15:POKEV,.:NEXT:RETURN
455 GOSUB457:GETX$:IFX$<>A$THEN455
456 RETURN
457 J=NOTPEEK(S)AND15:F=(PEEK(S)AND16)/16
458 IFF=.THENPOKE631,13:POKE198,1
459 IFJ=1THENPOKE631,145:POKE198,1
460 IFJ=2THENPOKE631,17:POKE198,1
461 IFJ=4THENPOKE631,45:POKE198,1
462 IFJ=8THENPOKE631,43:POKE198,1
463 RETURN
464 OPEN15,8,15,"R0:DFILE=DFILE":INPUT#15,ER:CLOSE15
465 IFER<>63THENGOSUB535
466 OPEN2,8,2,"0:DFILE"
467 FORI=.TO10:INPUT#2,N$(I):INPUT#2,B%(I):NEXT:CLOSE2
468 GOSUB539:PRINT
469 PRINTTAB(6)"[152]ENTER YOUR NAME / CODE WORD."
470 PRINTTAB(5)"10 CHARACTERS OR LESS, PLEASE."
471 PRINTTAB(13)"[144]@            \":PRINTTAB(15)"[145]";
472 GOSUB496:PRINT"[147]"
473 IFQ$=""THENCL=0:PL=12:RETURN
474 CT=0:TA=11:FORI=.TO10:IFN$(I)="\"THENTA=TA-1:GOTO476
475 IFQ$=N$(I)THENCT=CT+1:PL=I
476 NEXT
477 PRINT:IFCT=1THENPRINTTAB(9)"[144][192][149][160][160][160][198][207][213][206][196][160][201][206][160][198][201][204][197][160][160][160][160][144][220]":CL=B%(PL):GOTO530
478 IFCT>1THEN484
479 PRINTTAB(9)"[144][192][149][160][206][207][212][160][198][207][213][206][196][160][201][206][160][198][201][204][197][160][160][144][220]":GOSUB543:PL=12
480 IFTA=11THENPRINTTAB(9)"[144][192][149][206][207][160][210][207][207][205][160][204][197][198][212][160][201][206][160][198][201][204][197][144][220]":GOSUB543:GOTO516
481 FORI=.TO10:IFN$(I)="\"THENN$(I)=Q$:PL=I:I=10
482 NEXT:PRINTTAB(9)"[144][192][149][160][160][208][204][193][195][201][206][199][160][201][206][160][198][201][204][197][160][160][144][220]":GOSUB543
483 GOSUB547:RETURN
484 KT=65:PL=12:GOSUB544:FORI=.TO10:IFQ$=N$(I)THENGOSUB508
485 NEXT:GOSUB545
486 PRINTTAB(7)"[152]PICK LETTER OF FILE TO USE":PRINTTAB(19)"OR"
487 PRINTTAB(7)"PRESS [144][192][149][210][197][212][213][210][206][144][220][152] TO CONTINUE"
488 PRINT
489 GETX$:IFX$<>A$THENIFX$<"A"ORX$>CHR$(KT)THEN489
490 GOSUB454:IFX$=A$THENCL=0:PL=12:GOTO516
491 PRINTTAB(8)"KEEP CALORIES AS IS?[144][192][149][217][175][206][144][220]"
492 PL=E(ASC(X$)-65):N$(PL)=Q$
493 GETY$:IFY$<>"Y"ANDY$<>"N"THEN493
494 GOSUB454:IFY$="Y"THENCL=B%(PL):RETURN
495 B%(PL)=0:CL=0:RETURN
496 Q$=""
497 GETX$:PRINT"[144]-[157]";:IFX$=""THEN497
498 GOSUB454:IFX$=A$ANDQ$=""THENPRINT" ":RETURN
499 IFX$=A$THENPRINT" ":GOSUB554:RETURN
500 IFX$=CHR$(20)ANDLEN(Q$)THENQ$=LEFT$(Q$,LEN(Q$)-1):X$="[157]  [157][157]":GOTO507
501 IFLEN(Q$)>9THENGOSUB453:GOTO497
502 IFX$>="0"ANDX$<="9"THEN506
503 IFX$>="A"ANDX$<="Z"THEN506
504 IFX$=" "THEN506
505 GOTO497
506 Q$=Q$+X$
507 PRINT""X$;:GOTO497
508 G$=STR$(B%(I)):PRINTTAB(5)"[144] "CHR$(KT)"  ";
509 IFN$(I)="\"THENPRINT"          :";:GOTO511
510 PRINTN$(I)":";
511 IFB%(I)=0THENJ$=" 0000"
512 IFB%(I)>1000THENJ$=" 0"+RIGHT$(G$,LEN(G$)-2)
513 IFB%(I)>999THENJ$=G$
514 PRINTJ$" CALORIES ":E(KT-65)=I:KT=KT+1
515 RETURN
516 PRINT"[147]"
517 KT=65:GOSUB544:FORI=.TO10:GOSUB508:NEXT:GOSUB545
518 PRINT
519 PRINT"[152]  PRESS [144][192][196][144][220][146][152] TO DELETE / [144][192][210][144][220][146][152] TO REPLACE"
520 PRINTTAB(9)"PRESS [144][192][210][197][212][213][210][206][144][220][146][152] TO EXIT":SYS828,3
521 GETY$:IFY$<>"D"ANDY$<>"R"ANDY$<>A$THEN521
522 GOSUB454:IFY$=A$THENGOSUB547:RETURN
523 PRINTTAB(10)"[144]@PICK A FILE LETTER[144]\"
524 GETX$:IFX$<>A$THENIFX$<"A"ORX$>"K"THEN524
525 IFX$=A$THENGOSUB547:RETURN
526 GOSUB454:KT=ASC(X$)-65:B%(KT)=0
527 IFY$="D"THENN$(KT)="\":PL=12
528 IFY$="R"THENN$(KT)=Q$:PL=KT
529 PRINT"":SYS831,3:GOTO517
530 I=PL:KT=65:PRINT:GOSUB544:GOSUB508
531 GOSUB545:PRINT"  [152]PRESS [144][192][213][220][152] TO USE, [144][192][195][220][152] TO CREATE FILE"
532 GETX$:IFX$<>"U"ANDX$<>"C"THEN532
533 GOSUB454:IFX$="U"THENRETURN
534 CL=0:GOTO480
535 OPEN2,8,2,"DFILE,P,W":N$="\":CL%=0:FORI=.TO10
537 PRINT#2,N$A$CL%A$;:NEXT:PRINT#2:CLOSE2:RETURN
539 PRINT"[147]"TAB(10)"[144][255][160][215][193][201][211][212][160][195][207][206][212][210][207][204][204][197][210][160][223]"
540 PRINT" [144]@A NUTRITIONAL GUIDE TO BETTER EATING[144]\"
541 PRINTSPC(10)"[144][168][151][194][217][160][160][203][197][206][160][203][207][215][193][204][197][215][211][203][201][144][169]":RETURN
542 L$=STR$(L):GOSUB271:GOSUB320:PRINT"[158]"L$:RETURN
543 FORDE=.TO2500:NEXT:RETURN
544 PRINTTAB(5)"[144]^                            _":RETURN
545 PRINTTAB(5)"[144](                            )":RETURN
546 P=(21-(LEN(A$(TE)))/2):GOSUB271:RETURN
547 PRINTTAB(13)"[150]SAVING TO DISK"
548 OPEN15,8,15,"S0:DFILE":CLOSE15
549 OPEN2,8,2,"DFILE,P,W"
550 FORI=.TO10:IFLEN(N$(I))=10ORLEN(N$(I))=0ORN$(I)="\"THEN552
551 FORJ=LEN(N$(I))TO9:N$(I)=N$(I)+" ":NEXT
552 IFLEN(N$(I))=0THENN$(I)="\"
553 PRINT#2,N$(I)A$B%(I)A$;:NEXT:PRINT#2:CLOSE2:RETURN
554 IFLEN(Q$)=10THENRETURN
555 FORI=LEN(Q$)TO9:Q$=Q$+" ":NEXT:RETURN
556 GETX$:IFX$<>"Y"ANDX$<>"N"THEN556
557 GOSUB454:IFX$="N"THENRETURN
558 PRINT"[147]"
559 P=3:GOSUB271:PRINT"[144]@CLEARING MEMORY...PLEASE WAIT...\":B=.:D=.
560 FORE=.TO4:IFL%(E)=.THEN563
561 L%(E)=.:FORZ=.TO25:A%(E,Z)=.:C%(E,Z)=.:E%(E,Z)=.:NEXT
562 FORZ=.TO328:S%(E,Z)=.:NEXT
563 NEXT:RETURN
10000 OPEN15,8,15,"S0:WAIST CONTROL":CLOSE15:SAVE"WAIST CONTROL",8:END